home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / bsp2 / life.f < prev    next >
Text File  |  1993-06-28  |  938b  |  43 lines
  1.        PROGRAM LIFE
  2. c
  3. c      Simulation of a two dimensional cellular automata
  4. C
  5.        INTEGER N,I,J,ZAHL
  6.        PARAMETER (N=256)
  7.  
  8.        INTEGER FELD(N,N), FELD2(N,N),NEIGHBOR(N,N)
  9.        LOGICAL MASK(N,N)
  10.  
  11.        feld = 0
  12. !HPF$  INDEPENDENT, LOCAL_ACCESS
  13.        do j=2,n-1 
  14.           do i=2,n-1
  15.              if (i .gt. j) feld(i,j) = 1
  16.           end do
  17.        end do
  18.  
  19.        mask = .false.
  20.        mask (2:n-1,2:n-1) = .true.
  21.        feld2 = feld
  22.  
  23.        DO 100 I=1,100
  24.         NEIGHBOR = CSHIFT(FELD,1,1)+CSHIFT(FELD,1,-1)+
  25.      >             CSHIFT(FELD,2,1)+CSHIFT(FELD,2,-1)
  26.  
  27.        WHERE (MASK.AND.(NEIGHBOR.GE.2).AND.(FELD.EQ.0))
  28.           FELD2 = 1
  29.        ENDWHERE
  30.        WHERE (MASK.AND.(NEIGHBOR.GE.3).AND.(FELD.EQ.1))
  31.           FELD2 = 0
  32.        ENDWHERE
  33.  
  34.        FELD = FELD2
  35.        ZAHL = SUM(FELD)
  36.        PRINT *,ZAHL, ' animals in iteration ', I
  37.  100   CONTINUE
  38.  
  39.        ZAHL = SUM(FELD)
  40.        PRINT *,ZAHL
  41.  
  42.        END
  43.